home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / itrns211.zip / LIB / TAMILMAX.MF < prev    next >
Text File  |  1991-08-16  |  18KB  |  447 lines
  1. def tspecs =
  2. if callchar = "k":
  3. % cmchar "Tamil k";
  4. charspec("k",1.5x_height#,x_height#,0);
  5. top y2r=top y3r=top y4r=h;
  6. bot y7=bot y11=0;
  7. y1=y9=y5=.6x_height;
  8. y8=.5y1; y10=.5y1;
  9. y6=.3x_height;
  10. y22=h;
  11. x10=w-u; x8=w-x10;
  12. x3=x5=.6[x8,x10];
  13. x1=x2-.5hair=x22=.2[x8,x10]; x7=.25[x8,x10];
  14. x6=x5;
  15. x4=.9[x8,x10]; x11=.75[x8,x10]; x9=.65[x8,x10];
  16. z21=z1; x101=x10+.6u; y101=y10;
  17. %pickup crisp.nib;
  18. pos1(tthinner,30); pos22(tthinner,30); pos2(.8tmed,90); pos4(.8tmed,90);
  19. pos3(tthick,0); pos5(tthick,0); pos6(tthick,-10);
  20. pos7(tthin,-60); pos8(tthinner,-180);pos21(tmed,-210);
  21. pos9(tmed,-210); pos10(tthick,-340); pos11(tthin,-450);
  22. pos101(tthickest,-340);
  23. % show z1,z1r,z1l,z22,z22r,z22l;
  24. filldraw stroke z1e--z22e;
  25. filldraw stroke z2e--z4e;
  26. x65=x11-.075w; y65=y11+.075h; pos65(tthinnest,-540);
  27. filldraw stroke z3e...z5e...z6e{down}...{left}z7e...{up}z8e...{right}z21e
  28.   ...z9e{right}...z10e{down}...{left}z11e...z65e;
  29. penlabels(1,2,3,4,5,6,7,8,9,10,11,21);
  30. % endchar;
  31.  
  32. elseif callchar = "c":
  33. charspec("c",1.5x_height#,x_height#,0);
  34. top y2r=top y3r=top y4r=h;
  35. bot y7=bot y11=0;
  36. y1=y9=y5=.6x_height;
  37. y8=.5y1; y10=.5y1;
  38. y6=.3x_height;
  39. y22=h;
  40. x10=w-u; x8=w-x10;
  41. x3=x5=.6[x8,x10];
  42. x1=x2-.5hair=x22=.2[x8,x10]; x7=.25[x8,x10];
  43. x6=x5;
  44. x4=.9[x8,x10]; x11=.75[x8,x10]; x9=.65[x8,x10];
  45. z21=z1; x101=x10+.6u; y101=y10;
  46. %pickup crisp.nib;
  47. pos1(tthinner,30); pos22(tthinner,30); pos2(.8tmed,90); pos4(.8tmed,90);
  48. pos3(tthick,0); pos5(tthick,0); pos6(tthick,-10);
  49. pos7(tthin,-60); pos8(tthinner,-180);pos21(tmed,-210);
  50. pos9(tmed,-210); pos10(tthick,-340); pos11(tthin,-450);
  51. pos101(tthickest,-340);
  52. % show z1,z1r,z1l,z22,z22r,z22l;
  53. filldraw stroke z1e--z22e;
  54. filldraw stroke z2e--z4e;
  55. x25=x25r=x25l=x5; y25=y21; y25r=y21r; y25l=y21l;
  56. filldraw stroke z3e...z5e...z6e{down}...{left}z7e...{up}z8e...{right}z21e---z25e;
  57. penlabels(1,2,3,4,5,6,7,8,21,25);
  58. % endchar;
  59.  
  60. elseif callchar = "1":
  61.  
  62. %cmchar "Tamil n dot";
  63. charspec("1",3x_height#,x_height#,0);
  64. %adjust_fit(0,0);
  65. x1=x81=u; x6=.6x10; x8=.6[x1,x6]; x7=.5[x8,x6];
  66. x5=.5[x1,x6]; x3=.5[x1,x8]; x4=x2=.5[x1,x3];
  67. x9=.5[x8,x10]; x10=.7w; x12=.6[x8,x10]; x11=.5[x12,x10];
  68. x13=rt x10r; x14=w-u; x15=x16=.5[x13,x14];
  69. top y5r=top y9r=top y13r=y16=top y14r=h;
  70. bot y4r=bot y7r=bot y11r=y15=0;
  71. y2=y8=y6=y12=y10=.5h;
  72. y81=y1=y3=.5y2;
  73. pos1(tthinner,180); pos2(tthin,90); pos3(tthick,0); pos4(tthin,-90);
  74. pos81(tthinner,-180); pos5(tmed,-270); pos6(tthicker,-360);
  75. pos7(tmed,-450); pos8(tthin,-540); pos9(tmed,-630); pos10(tthicker,-720);
  76. pos11(tmed,-810); pos12(tthin,-900); pos13(tthin,-990);
  77. pos14(tthin,-990); pos15(tthicker,0); pos16(tthicker,0);
  78. if dodraw:
  79. filldraw stroke z1e...{right}z2e...{down}z3e...{left}z4e..z81e...{right}z5e
  80.   ...{down}z6e...{left}z7e...{up}z8e...{right}z9e...{down}z10e
  81.   ...{left}z11e...{up}z12e...{right}z13e; %---z14e;
  82. fi
  83. %filldraw stroke z15e---z16e;
  84. penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
  85.  
  86. elseif callchar = "p":
  87.  
  88. charspec("p",1.4x_height#,x_height#,0);
  89. y1=y6=h; y2=y5=bot y3l=bot y4l=0;
  90. lft x1l=lft x2l=x3=u;
  91. rt x5r=rt x6r=x4=w-u;
  92. pos1(tthick,0); pos2(tthick,0); pos3(tthin,90); pos4(tthin,90);
  93. pos5(tthick,0); pos6(tthick,0);
  94. filldraw stroke z1e---z2e;
  95. filldraw stroke z3e---z4e;
  96. filldraw stroke z5e---z6e;
  97. penlabels(1,2,4,6);
  98.  
  99. elseif callchar = "n":
  100.  
  101. charspec("n",1.5x_height#,x_height#,.5x_height#);
  102. x12=u; x11=x1=x2=x3=3u; x4=rt x9r=w-u; 
  103. x7=x5=x6=.4[x1,x9]; x8=.6[x7,x9]; x13=.6[x12,x11]; x10=.5[x7,x8];
  104. y1=y6=y7=0; top y3r=top y4r=y2=y5=h;
  105. y8=.55h; y9=.5y8; bot y13l=-d; y10=y11=-.3d; y12=.4[y10,y13];
  106. pos1(tthinner,0); pos2(tthinner,0); pos3(tmed,90); pos4(tmed,90);
  107. pos5(tthick,0); pos6(tthick,0); pos7(tthin,180); pos8(tthin,90);
  108. pos9(tthick,0); pos10(tthin,-90); pos11(tthin,-90); pos12(tthinner,0);
  109. pos13(tthick,45);
  110. filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; filldraw stroke z5e--z6e;
  111. %filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{left}z11e...{down}z12e..z13e;
  112. penlabels(1,2,4,5,6,8,9,10,11,12,13);
  113. %endchar;
  114.  
  115. elseif callchar = "r":
  116.  
  117. charspec("?",1.125x_height#+2u#,x_height#,0);
  118. lft x1l=lft x2l=x3=u; x4=w-u; x5=x6=.6w;
  119. y1=y6=0; y2=y3=y4=y5=h; 
  120. pos1(tthinnest,0); pos2(tthinnest,0); pos3(tthin,90); pos4(tthin,90);
  121. pos5(tthick,0); pos6(tthick,0);
  122. filldraw stroke z1e---z2e; filldraw stroke z3e---z4e; filldraw stroke z5e---z6e;
  123. penlabels(1,2,3,4,5,6); 
  124.  
  125. elseif callchar = "r2":
  126.  
  127. charspec("?",.9x_height#+2u#,x_height#,0);
  128. lft x1l=lft x2l=x3=u; x4=w-u; x5=x6=.6w;
  129. y1=y6=0; y2=y3=y4=y5=h; 
  130. pos1(tthinnest,0); pos2(tthinnest,0); pos3(tthin,90); pos4(tthin,90);
  131. pos5(tthick,0); pos6(tthick,0);
  132. filldraw stroke z1e---z2e; filldraw stroke z3e---z4e; filldraw stroke z5e---z6e;
  133. penlabels(1,2,3,4,5,6); 
  134.  
  135. elseif callchar="y":
  136.  
  137. charspec("y",1.5x_height#,x_height#,0);
  138. x1=x2=u; x8=x9=x10=w-u; x7=x4=x5=x6=.35[x1,x9]; x3=.35[x1,x5];
  139. y9=y5=y1=h; y2=.3h; y4=.5h; bot y7l=bot y8l=bot y3l=y6=y10=0;
  140. pos1(.8tmed,0); pos2(.8tmed,0); pos3(tthin,90); pos4(tthinner,180);
  141. pos5(tthick,0); pos6(tthick,0); pos7(tthin,90); pos8(tthin,90);
  142. pos9(tthick,0); pos10(tthick,0);
  143. filldraw stroke z1e--z2e{down}...{right}z3e...{up}z4e;
  144. filldraw stroke z5e--z6e; filldraw stroke z7e--z8e; filldraw stroke z9e--z10e;
  145. penlabels(1,2,3,4,5,6,7,8,9,10); 
  146. %endchar;
  147.  
  148. elseif callchar="a":
  149.  
  150. charspec("a",2x_height#,x_height#,desc_depth#);
  151. %adjust_fit(0,0);
  152. x3=.5[x9,x11]; y1=.8h; y5=y12=h; y2=y4=y6=.6h; y3=.2h; x1=.45[x9,x11];
  153. x4=x8=.4[x9,x11]; x2=.6[x9,x11]; x5=.6[x9,x11]; x6=.7[x9,x11]; x7=.8[x9,x11]; x11=x12=x13=w-u;
  154. x9=u; x10=.15[x9,x11]; y8=y13=-d; y7=y3; y9=-.1d; y10=y11=0;
  155. z20=z1;
  156. pos1(hair,70); pos2(.8curve,0); pos3(hair,-90); pos4(hair,190);
  157. pos5(hair,90); pos6(curve,0); pos7(tthickest,-20); pos8(tmed,-90);
  158. pos9(hair,-180); pos10(hair,90); pos11(hair,90); pos12(.8curve,20);
  159. pos13(.8curve,20);pos20(hair,135);
  160. filldraw stroke z1e...z2e...z3e...z4e...z20e...z5e...{down}z7e...{left}z8e...{up}z9e...z10e---z11e;
  161. filldraw stroke z12e---z13e;
  162. penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13); 
  163.  
  164. elseif callchar="v":
  165.  
  166. charspec("v",1.5x_height#,x_height#,0);
  167. x1=x81=u; x6=.6[x1,x9]; x8=x9=x10=w-u; x7=.4[x5,x6];
  168. x5=.5[x1,x6]; x3=.4[x1,x6]; x2=x4=.5[x1,x3];
  169. y2=.5h; y1=y3=y81=.5y2; bot y4r=bot y7r=bot y8r=0; 
  170. top y5r=y10=h; y9=0; y6=.5h;
  171. pos1(tthinner,180); pos2(tthin,90); pos3(tthick,0); pos4(tthin,-90);
  172. pos81(tthin,-180); pos5(tmed,-270); pos6(tthick,-360); pos7(tthick,-450);
  173. pos8(tthick,-450); pos9(tthick,0); pos10(tthick,0);
  174. filldraw stroke z1e..z2e..z3e..z4e..z81e..z5e...{down}z6e...{left}z7e;
  175. filldraw stroke z7e--z8e; filldraw stroke z9e--z10e;
  176. penlabels(1,2,3,4,5,6,7,8,9,10); 
  177.  
  178.  
  179. elseif callchar="l":
  180.  
  181. charspec("l",1.5x_height#,x_height#,0);
  182. x81=u; x9=w-u; x6=x7=.55[x81,x9]; x8=x10=.5[x6,x9]; x1=.1[x81,x6];
  183. x5=.5[x81,x6]; x3=.4[x1,x6]; x2=x4=.5[x1,x3];
  184. y81=y2=.5h; y1=y3=.5y2; bot y4r=bot y8l=0;
  185. top y5r=h; top y10l=h; y9=.5h; y6=.6h; y7=.4h;
  186. pos1(tthinner,180); pos2(tthin,90); pos3(tmed,0); pos4(tthin,-90);
  187. pos81(tthin,-180); pos5(tmed,-270); pos6(tthick,-360); pos7(tthick,-360);
  188. pos8(tmed,-270); pos9(tthin,-180); pos10(tmed,-120);
  189. %filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e..z10e;
  190. penlabels(1,2,3,4,5,6,7,8,9,10); 
  191.  
  192. elseif callchar="m":
  193.  
  194. charspec("m",1.6x_height#,x_height#,0);
  195. lft x1l=lft x2l=x3=u;
  196. rt x5r=w-u; x8=x7=.5w;
  197. x6=.3[x8,x5]; x4=.8[x8,x5];
  198. y1=top y6r=h;
  199. y2=bot y3r=bot y4r=y8=0;
  200. y5=.5h; y7=.8h;
  201. pos1(tthick,0); pos2(tthick,0); 
  202. pos3(tthin,-90); pos4(tthin,-90); 
  203. pos5(tthinner,0); pos6(tmed,90); 
  204. pos7(tthick,180); pos8(tthick,180); 
  205. filldraw stroke z1e---z2e;
  206. filldraw stroke z3e---z4e...{up}z5e...{left}z6e...{down}z7e---z8e;
  207. penlabels(1,2,4,5,6,7,8);
  208.  
  209. elseif callchar="T":
  210.  
  211. charspec("7",1.75x_height#,x_height#,0);
  212. lft x1l=lft x2l=x3=u; x4=w-u;
  213. y1=h; y2=bot y3l=bot y4l=0;
  214. pos1(tthick,0); pos2(tthick,0); 
  215. pos3(tthin,90); pos4(tthin,90); 
  216. filldraw stroke z1e---z2e;
  217. filldraw stroke z3e---z4e;
  218. penlabels(1,2,4);
  219.  
  220. elseif callchar="L":
  221.  
  222. charspec("9",1.75x_height#,x_height#,0);
  223. x81=x1=u; x6=x7=x8=x9=.55w; x11=x12=.8w; x10=w-u;
  224. x3=x5=.5[x1,x6]; x2=x4=.5[x1,x3];
  225. bot y4r=y6=y7=y11=0; top y5r=y8=top y9r=top y10r=y1